home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util4 / 0utils.lha / 0Utils / PathPart.data < prev    next >
Text File  |  1995-08-19  |  938b  |  63 lines

  1.  
  2. #ifdef TPLTER
  3.  
  4. PathPart = {
  5.  
  6.     SHORT = {{ extract a filename's pathpart }};
  7.  
  8.     DESCRIPTION = {{
  9.     Pathpart gets a filename and extracts its
  10.     AmigaDOS path-part.
  11.  
  12.     The resulting string is sent to STDOUT.
  13.  
  14.      RESULT
  15.     a filename's pathpart
  16.     }};
  17.  
  18.  
  19.     EXAMPLES = {{
  20.     >PathPart a:a/a
  21.     "a:a"
  22.  
  23.     >PathPart a:a
  24.     "a:"
  25.  
  26.     >PathPart a
  27.     ""
  28.     }};
  29.  
  30.     SEEALSO = {{
  31.     dos.library/PathPart
  32.     Suffix, FilePart
  33.     }};
  34.  
  35.     HISTORY = {{
  36.     01-08-93 b_noll created
  37.     20-02-95 b_noll restructured source
  38.     21-02-95 b_noll added version/format-prefix/offset
  39.     20-03-95 b_noll added args diagnostics
  40.     19-08-95 b_noll created .data file
  41.     }};
  42.  
  43.     Template = "FILE/A";
  44.     Arguments = {{
  45.     STRPTR file;
  46.     }};
  47.  
  48.     version = "1.2";
  49.     body = {{
  50.         char * p; char c;
  51.         p = PathPart(argv->file);
  52.         c = *p; *p = 0;
  53.         retval = RETURN_WARN;
  54.         if (PutStr (argv->file) == 0) retval = RETURN_OK;
  55.         PutStr("\n");
  56.         *p = c;
  57.  
  58.     }};
  59. };
  60.  
  61. #endif
  62.  
  63.